home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcp24.slt < prev    next >
Text File  |  1988-07-25  |  362b  |  27 lines
  1. //
  2. //Script to log on to Telenet's local access number and load MENU script
  3. //
  4.  
  5. str T_ID[] = "D1";
  6. str cr[] = "^M";
  7.  
  8. main()
  9. {
  10.  alarm(1);
  11.  {
  12.  cputs("@");
  13.  delay(2);
  14.  cputs("D");
  15.  cputs("^M");
  16.  }
  17.    delay (2);
  18.    cputs(T_ID);
  19.    cputs("^M^M");
  20.  if (not waitfor("@", 20))
  21.   {
  22.    prints("Log-on failed!");
  23.    return;
  24.   }
  25.  DOS("IC.BAT");
  26. }
  27.